

LE BIDE INFORMATIQUE FRANÇAIS ! 
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CINOCHE- TELOCHE 

Plein les mirettes, pages 14 et 15. 
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VIENS CHEZ MOI, 
Y' A UN VAX ! 
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■ proposi- tout le monde le propose, 

■■ouï '-ou même Ch-ÉioeuruiJi ! Moi 

iBlë dans Rajoute 150. ^ 200 on 30D 

l'acheter un Les Sociétés qui labriquenl 
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C'est nouveau, ça vient de sortir : 

Lacmalité de la micro -m forma figue. Lire pages 9,10. 



DEULIGNEURS 

Lua fainéants sont à la page 10 



FORMATION A L'ASSEMBLEUR 



BIDOUILLE GRENOUILLE 

Ou comment wfcfrsr, pfraler, modifier, iraliquer. magouiller, 
bidouiller et grenouiller avec tes logiciels du monde entier. 
Ma/s dans la légalité, an moins ? 01 course, mon générai! 



CONCOURS PERMANENTS 

Voire programme, non content de vous rapporter 1.000 
francs chaque mois ou un voyage en Catilornie pour Oeux 



DES PROGRAMMES POUR VOTRE ORDINATEUR: AMSTRAD . 
APPLE Ile et Ile. ATARI 800 XL . CANON X-07 . CASIO FX 702-P. 
COMMODORE 64 ET VIC 20 . EXELVISION EXL 100 . HECTOR HR . 
MSX et compatib.es . ORIC 1 ET ATMOS . SINCLAIR ZX 81 ET SPECTRUM. 
^TANPY TRS 80 . TEXAS TI-99/4A. THOMSON T07, TO7/70, ET M05^ 
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_POKER CINQ 

Voici pour le plus grand plaisir des amateurs du genre, 
un jeu de poker bien singulier. 

Joseph PAU M 1ER 

Ne pas confondre I minuscule et 1 



10 CLËAR999: I 
!DIMN«I2> ,fl<- 
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r=OTHEN200ELSEFOR: 




300 COLORIS 



24 MlC>Ml*4"o4g8âd+»o9ceo4*aScBo4« et: s 



J FORI-iTOBiF 



► oc d e a ot boSd9 c 1 oç 



«S= ■ 1 ■ THEN250ËL5E IFA»= "2" THEN300EL 
SE 770 

>1THE.NSS-1ELSESS=2 



OSOOÎPRESETIl 



:NKEY«=" "THEN330ELSE 



3 F0RX7-lT03:t 



S50 PRESETI! 



— 72:preseT(x.y; 



!OiHneii« 



!ESET<140, 1B0J :PRINT»I,*-ESPfl 
'INKEYCb" ■'THENÛ70ELSELINE 1 140 



rT«iTHËwxx«i :tt-2:c 



NEXT:next: 



43 COLORIS, 4,4! 
(30,1601 SPRINT» 
70 A*«INKEY*: II 
OSUB9000ELSE1F* 



hprintxi,fb:f 
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>0!F0RX3-1T04; IFS1X3I >-STHE 9040 L0CATE1 1 , 22! PRINT " — Em; 

:"THEN90SOELS£RETURN 

y-3B*y-sb: SOUND*, l: 
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ATARI 



f Suite de ta page 24 




MM6J DR CYM=? AND XM<103 OR CYM=6 AND X 

n=i5 ano xm<X3 then 1050 

GOTO 1008 

1640 UI=PEEKCUM+403 :IF U=!31 OR W=136 OR 
W=72 THEN 1153 

1642 IF CVM=B ANO XP!<1S) OR CYM=0 AND XM 
>9 AND XM<163 OR XM<3 THEN 1000 

1644 GOTO 1050 

1647 REH ************** 

1648 REfl CHUTE GARDIENS 

1643 REfl ************** 

1650 IF PEEKCUM+333=0 ANO XM-1=MXC NOT M 
0) AND TM=MTC NOT M03 THEN IBB 

1651 IF XM+1=MXC NOT M03 AND Ttl-MTC NOT 
M03 THEN 100 

1652 POKE Un,HPl!IF BMOl THEN POKE UMt20 



1502 GOTO 1505 

1504 ON SGNCY-YM3+2 GOTO 1400.1506,1450 
1506 ON SGNCX-XM3+2 GOTO 1050,0,1000 
1547 REM ********************* 
1546 REM MUT. GARDIENS DANS T2 

1550 IF X<13 AND CY>B OR Y<33 THEN 1556 

1551 IF YM=0 OR tYM=4 AND XM<13) THEN ON 
SGNC13-XM3+2 GOTO 1050,1000,1000 

1552 IF YM>4 AND YMO AND XM<12 THEN DN 
SGNC2-XMJ+2 GOTO 1050,1400.1400 

1553 IF YÎ1=15 AND XM=15 THEN 1400 

1554 IF CYM>8 AND XH<133 OR Yt1>10 THEN 0 
N SGNC8-Xt1]t2 GOTO 1050,1400.1000 

1555 IF Xn>!2 AND YMO AND YM>2 THEN 153 
5 

1556 ON SGNCY-YM3+2 GOTO 1557,1570,1585 

1557 IF BM=131 OR tCBM=136 OR BM=13 AND 
HIW313 THEN 1403 

1560 IF YM>10 THEN ON-SGNCB-XMJ+2 GOTO 1 

050, 1400, 1000 

1562 IF YM=9 THEN 1050 

1564 ON SGNC4-XM3*2 GOTO 1050,1400,1000 
1570 ON SGNCX-XM3*2 GOTO 1050,0,1000 
15S5 W=PEEKCUfH40}=IF W=131 OR Li=196 OR 
U=72 THEN 1450 

1530 IF YM>7 THEN ON SGNC8-XHJ+2 GOTO 10 
50,1450,1000 

1592 IF YM>3 AND XTO-1 AND Xn<6 THEN ON 
SGNC2-XM3+2 GOTO 1050,0,1000 

1593 IF XMM3 AND YI1=0 THEN 1050 

1594 GOTO 1000 

1535 IF Yt1=8 AND XM<18 THEN 1008 

1596 IF XI1=18 AND YM>3 THEN 1400 

1597 ON SGNCX-XM]i2 GOTO 1050,1450.1000 

1598 REM MUT. GARDIENS DANS T3 
1593 REfl ********************* 

1600 IF YMO Y THEN ON SGNCY-YM3*2 GOTO 1 
630,0, 1640 

1602 ON SGNCX-XM31-2 GOTO 1050,0,1000 

1630 IF BM=131 OR CCBM=196 OR BM=13 AND 
HM=13n THEN 1403 

1631 IF X>3 AND X<10 AND Y>6 ANO Y<13 AN 
D XMJ9 ANO XM<14 AND YH> 1 1 AND YM<14 THE 
N 1050 

1632 IF CYn=18 ANO XM>153 OR CYM=3 AND X 



1653 XM=XHi-l:IF PEEKCUM*333=0 THEN XM=XM 
-2 

1654 YM=YM*l !UM=AI1tXni-YM*20:PDKE UM-20,0 
:POKE MM, 143 îPOKE UM+20, 154 

1655 SOUND 0.YM+5, 10,11 

1656 IF PEEKCUMt403=8 THEN 1654 

1658 FOR 1=0 TO ÎS'SOUND 0. 145.B, 10 iNEXT 
I:SOUND 0,0,0,0 
1653 IF PEEKCUMt403>72 AND PEEKCUM+40J <7 
9 THEN 1700 

1660 IF PEEKCUtl+48301 THEN YM=YM+1 :POKE 
tJM,0ipOKE UMt20, 13?:HM=0:BM=1 

1661 IF PEEKCUMi-403 = 131 THEN BM=13l:PÛKE 
Utt+40, 138 

1S62 XX=1 îGOTO 1031 
1670 IF HM0131 THEN GOTO 100 
1672 FOR YM=4 TO 6 :UM=An+Xtt+YM*20 iPOKE U 
f1,13l:P0KE UMt20, 143:P0KE UM+40, 154 :NEXT 
YM!YM=6:G0TO 1654 

1697 REM ******* 

1698 REM PEROU S 
1633 REM ******* 

1700 FOR 1=0 TO 50 : SOUND 0, 1, 2. 15 iNEXT I 
:SOUND 0,0,0,0 

1701 NU=NU-l:IF NU>=0 THEN 1705 

1702 POKE 65?,0:POKE 656, 1 :? "GAME OUER" 
JFOR I»0 TO 700 îNEXT IiPOKE 40230, 128:P0 
KE 40231. 1571G0T0 3 

1705 U=A+XtY*20:POKE U.CT^IF CPOl THEN 
POKE U+20.CP 

1707 FOR 1=1 TO 2:U=MACT.3 + MXCI3tMYCI3*20 
:POKE U.nHCIlilF MBCI301 THEN POKE U*20 
,MB[I3 

1708 NEXT I 

1710 FOR 1-37003 TO 37303 STEP 20:POKE I 
,0:NEXT HPOKE 1,63 

1712 FOR 1=33533 TO 39753 STEP 20=POKE I 
,0:NEXT IîPOKE 1,63 

1714 ASSCn-12iASSC2J = 16:MACl 1 = 39120 IMAC 
23^37000 :MTC 11 = 1 :MTC23=3 =MX[ 13=7 :I1Xt23=l 
6:MYCn=0:riYC2] = 15 

1716 FOR 1-1 TO 2:U=MA[I)fnXtIl*riY[I3*20 
!MHCI3-0!flB£IJ=l :IF PEEKCUt20)<>0 THEN M 
aCI3=PEEKCU+20] 

1718 NEXT I 

1719 IF B=l AND CCT=2 AND X=123 DR CT^3 



AND X=2J OR PEEKCA-fXtY*20f213O663 THEN 
1740 

1720 X=2:Y=18:R=39120:T=1 -'POKE 39482,73: 
CT=0:CP=0:IF PEEKC39502] <>0' THEN CP=1!G0 
TO 1722 

1721 POKE 39502,74 

1722 POKE 40230, 2081PDKE 40231,152 

1723 POKE 13,0:POKE 20,0 

1724 IF B£i AND CT=2 AND X=123 OR U =3 A 
ND X=2D THEN 1740 

1725 IF P=66 THEN P=0:B=0 

1727 MO=!!POKE B56,2iPOKE 657,NU+2:? " " 

:POKE 657,NUt2'.? " " ! :GOTO 110 

1740 D=l:F=12:IF T»3 THEN 0=4 :F=18 :GOT0 

1742 

174! IF T-l THEN D-4=F-1S 

1742 FOR I=A+20+O TO At20tp:iF PEEKCIJO 
0 THEN NEXT I 

1744 POKE I,66:G0TO 1720 

1747 REM ************ 

1748 REM PRESENTATION 

1743 REM ************ 

1750 FOR 1=3 TO 16:P0SITI0N I,2i? S6iCHR 
tC333 POSITION 1,6:? #6iCHR*(33D iNEXT I 
1732 FOR 1=3 TO S:P0SITION 3,1:? «BICHR* 
f 33) :POSITION 16,1:? #6 îCHR*C33D :NEXT I 
1755 POSITION 5,4:? #6)"le mineur":PDSI 
TION 15,1:? #6iCHR*:6JSCHR«t?: 
1760 FOR 1=0 TO ISiPQSITION 1,13:7 #6;CH 
R*C333 :POSITI0N 1,16:? #6 ; CHR* C 33 3 '■ NEXT 
I 

1763 POSITION 1,11!' «esCHR^SJr M iCHR« 
r 1 32 3 J CHR* [ 1 32 3 i " " ! CHR* C 1 0 3 ; CHR* C 2 3 i 

'■;CHR*CI723i" M ;CHR4C1723 
1765 POSITION 9,13:? «6 iCHR*C33 îPDSITION 

16,13:? #63CHR*Cl?lîi" ";CHR*C1713 
1800 RETURN 

1807 REM ******************* 

1808 REM DEP. CHARIOT GAUCHE 
1S09 REM ******************* 
1810 IF X=CG ANO T=TTG THEN 666 

1812 DOC=1810!X=X-1 :U=U-1 :IF X<>-1 THEN 
1B20 

1814 T1=»20B:T2M52:A=33120'IF T=3 THEN T 
1=96=T2=154:A=39520 

18.16 POKE Utl,CT:POKE U-e21 , CCG =POKE Ui'22 
,CCD:X=13:T=T-l :U=AtXtY*20 :CT=PEEKCU3 :CC 
G=PEEKCU*20D 

1818 POKE U,73:P0KE U+20,70:POKE 40290, T 

IîPOKE 40231, T2SG0T0 687 

1820 T1=PEEKCU1 :T2=PEEKCU+203 îPOKE U,73: 

POKE U+20,70:POKE UtljCTiPOKE U+21,71 

1B22 IF X<18 THEN POKE U*22,CCD 

1824 CT=T1 :CCD=CCG:CCG=T2:GOT0 68? 

1847 REfl ******* 

1848 RED GAGNE S 
1843 REM ******* 

1850 POKE 657, 1 îPOKE 656, 1 :? "BRAUO" 
1B52 FOR 1=0 TO 600'NËXT I :NOU=NOU-20 :IF 
NOU=20 THEN NOU=40 
1854 FOR 1=100 TO 1 STEP -1 :SOUND 0,1,2, 
i5 = NEXT I:POKE 657, 1:? " " :SOUND 0,0 

,0,0:GOTO 10 



1897 REM ************************** 

1898 REM L'ASCENSEUR REDESCENT SEUL 

1980 IF USA=0 THEN RETURN 
1385 Tl=l:IF ST=7 THEN Tl=-1 
1310 USA=0:POKE A*ASStT-13*20+X+T1.0!T2= 
37323 :IF T=2 THEN T2=39773 
1312 ASSCT-13=12:IF T=3 THEN ASSCT-1J=16 
1915 T1=PEEKCT2)=P0KE T2,69:IF TK137 OR 
Tl>142 THEN RETURN 

1320 IF MYC2)=X THEN MBt23=l :RETURN 
1925 MBC13=1 : RETURN 
1937 RE-M ***** 
1338 REM PAUSE 
1333 REM ***** 
2000 TI1=PEEK(20J :TI2=PEEKU9J :FOR 1=0 T 
0 28:S0UND 0,1*50,2, 15:NEXT I :SOUND 8i0> 
9,8 

2005 POKE 656,3:P0KE 657,11:? "PAUSE" ! 
3010 IF STICKC0)=]5 THEN 2010 
2015 i^ÛKE 764,255:i s 0KE 20,TI1:POKE 19, TI 
2 

2017 POKE 656,3:P0KE 657,11:? " 
2020 G010 110 

2347 REM ******************** 
2048 REM TIR C BARRE D'ESPACE! 
2043 REM ******************** 
2050 IF MND=8 AND T=2 AND X»6 ANO Y=15 T 
HEN MN0=1 :P=0:POKE 33825, 0:POKE 39845,0: 
GOTO 2834 

2055 U=A+XiY*20:IF PEEKty3=?7 THEN 2034 
2868 DI-=i:IF PEEKCV3=75 THEN DI=-1 
2065 IF [DI=1 ANO X«193 OR tDI=-l ANO X= 
03 THEN 2094 

2878 IF PEEKCU+DIJ0137 AND PEEKCUtDIl <> 
133 AND PEEKtU-M3I30141 THEN 2034 
2075 2=1 :IF MX[23=X+DI AND MYC23=Y THEN 
£=2 

20B0 IF T=3 THEN MTC23=1 :MAC33=33120 :GOT 
□ 2084 

2082 MTC31=3:MACZ3=37000 

2084 IF HBC23 01 THEN POKE U+20tDI, MBC33 

2085 POKE U*DI,MH[23 :MYCÎ3=0 

2086 MXC33=INTCRNDC03*163*4:IF MTt 1 3=MTC 
23 AND 1XC23=MXC1] AND MYC23=MYC1) THEN 
2086 

20B8 Q=MTtZ3+nx(Z):POKE Q, 137 :MHCZ3=0 :MB 
r.23="PEEKCOt203 =IF MB(2)<>0 THEN MBCZ3 = 1 
2090 IF MBCZ301 THEN POKE Q.138 
2092 P=8 

2034 POKE 764,255:G0TO 110 

2136 REM **************************** 

2138 REM * 

2200 RE" * OUFS C'EST TERMINE... 

2201 REM * ... MAIS ATTENTION »S! 

2202 REM * IL EST UIUEMENT CONSEILLE 
2204 REM * D'ENREGISTRER LE PROGRAMME 
2206 REM * AUANT DE L'UTILISER. 

2208 REM * L'INSTRUCTION "POKE" 
2210 REM * PEUT PARFOIS JOUER 
2212 REM * DE TRES MAUUAIS TOURS. 
2214 REM * 

2216 REM **************************** # 
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